---
title: "`r params$dynamictitle`"
date: "`r params$reportdate`"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
params:
  symbol1: LLY
  symbol2: ANTM
  symbol3: CMI
  reportdate: !r Sys.Date()
  dynamictitle: "Dygraphs Linked Time Series"
---

```{r setup, include=FALSE}
library(dygraphs)
library(quantmod)
library(flexdashboard)

# stock < - getSymbols(c(params$symbol1, params$symbol2, params$symbol3), from = "2014-01-01", auto.assign=TRUE)

stock1 <- getSymbols(params$symbol1, auto.assign = FALSE,
                    from = "2014-01-01", end = Sys.Date())

colnames(stock1) <- c("Open", "High", "Low", "Close", "Volume", "Adjusted")

name1 <- params$symbol1

stock2 <- getSymbols(params$symbol2, auto.assign = FALSE,
                    from = "2014-01-01", end = Sys.Date())

colnames(stock2) <- c("Open", "High", "Low", "Close", "Volume", "Adjusted")

name2 <- params$symbol2

stock3 <- getSymbols(params$symbol3, auto.assign = FALSE,
                    from = "2014-01-01", end = Sys.Date())

colnames(stock3) <- c("Open", "High", "Low", "Close", "Volume", "Adjusted")

name3 <- params$symbol3
```

### `r params$symbol1`

```{r}
dygraph(stock1[,2:4], group = "stocks") %>% 
  dySeries(c("Low", "Close", "High"), label = name1)
```

### `r params$symbol2`

```{r}
dygraph(stock2[,2:4], group = "stocks") %>% 
  dySeries(c("Low", "Close", "High"), label = name2)
```

### `r params$symbol3`

```{r}
dygraph(stock3[,2:4], group = "stocks") %>% 
  dySeries(c("Low", "Close", "High"), label = name3)
```